home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 16 / CU Amiga Magazine's Super CD-ROM 16 (1997-10-16)(EMAP Images)(GB)[!][issue 1997-11].iso / CUCD / Graphics / Picasso96 / InstallPicasso96 < prev    next >
Text File  |  1997-05-14  |  48KB  |  1,554 lines
  1. ;-----------------------------------------------------------------------------
  2. ; Script to install Picasso96 
  3. ;
  4. ; $VER: InstallPicasso96 1.0 (15.12.96)
  5. ;
  6. ;-----------------------------------------------------------------------------
  7.  
  8. ;=============================================================================
  9. ; Configuration defaults
  10. ;=============================================================================
  11.  
  12. (set #Name                        "Picasso96")
  13. (set #MinSysVersion            39)
  14. (set #LibsDefaultPath        "SYS:Libs")
  15. (set #MonitorsDefaultPath    "SYS:Devs/Monitors")
  16. (set #SettingsDefaultName    "SYS:Devs/Picasso96Settings")
  17. (set #PrefsDefaultPath        "SYS:Prefs")
  18. (set #MainPath                    "Picasso96")
  19. (set #MainDefaultPath        "Work:")
  20.  
  21. ;=============================================================================
  22. ; English strings
  23. ;=============================================================================
  24.  
  25. (if
  26.     (= @language "english")
  27.     (
  28.     ; startup message
  29.         (set #StartupMsg1
  30.             (cat
  31.                 "Picasso96 is a complex piece of software and requires some experience to install and configure. "
  32.                 "If you are a beginner with the Amiga and already have a working environment for your graphics board, "
  33.                 "you might think twice before installing Picasso96! "
  34.                 "This version of Picasso96 is a snapshot of the development and works on most systems. However, your "
  35.                 "system may differ in some aspects and this version of Picasso96 might fail to work on your Amiga. "
  36.                 "So, please, backup your current system configuration before installing Picasso96! "
  37.             )
  38.         )
  39.         (set #StartupMsg2
  40.             (cat
  41.                 "Before you go on, please disable your current graphics board drivers and reboot, if there is any. "
  42.                 "Otherwise your system will probably refuse to work correctly afterwards. "
  43.                 "Because of the complexity of the different systems available, we can not perform this action "
  44.                 "automatically and chose to ask you to do this. Please refer to the manuals of your current "
  45.                 "driver software or read the appropriate section of the Picasso96 manual. "
  46.             )
  47.         )
  48.         (set #StartupMsg3
  49.             (cat
  50.                 "Please read the documentation before installing Picasso96. Setup and configuration of graphics drivers "
  51.                 "is not trivial and should be done with certain things kept in mind. Do you want to read the manual now? "
  52.             )
  53.         )
  54.         (set #StartupHelp3
  55.             (cat
  56.                 "Please read the documentation! This might help you to avoid some trouble!"
  57.             )
  58.         )
  59.         
  60.     ; Errors
  61.         (set #Err-Bad-Kick "You need at least KickStart 3.0 to run Picasso96!")
  62.         (set #Err-Bad-CPU "You need at least a Motorola M68020 CPU to run Picasso96!")
  63.         (set #Err-No-Boards "You really should have selected at least one board type!")
  64.         (set #Err-No-UpdateScript "Could not find update script from previous installation, please back up configuration files and reinstall!")
  65.         (set #Err-No-DeleteScript "Could not find update script from previous installation, please remove manually.")
  66.  
  67.     ; Warnings
  68.         (set #Warning-NoBoards "It seems that your Amiga has no compatible Amiga graphics board installed!")
  69.  
  70.     ; Message
  71.         (set #Message
  72.             (cat
  73.                 "Thank you very much for choosing \nPicasso96\n as your graphics system.\n\n"
  74.                 "Picasso96 is the new system friendly environment for many different Amiga graphics boards."
  75.             )
  76.         )
  77.  
  78.     ; Install/Update
  79.         (set #InstallMode "Do you want to install, update or uninstall Picasso96?")
  80.         (set #InstallModeHelp
  81.             (cat
  82.                 "Choosing Install will install Picasso96 with all configuration files,"
  83.                 "if you click update, your existing configuration files will not be touched."
  84.             )
  85.         )
  86.         (set #Install "Install")
  87.         (set #Update "Update")
  88.         (set #Uninstall "Uninstall")
  89.  
  90.     ; Boards
  91.         (set #AskBoards "What kind of graphics board(s) do you want to use with Picasso96?")
  92.         (set #AskBoardsHelp
  93.             (cat
  94.                 "Select those cards that you own, if you do not own any of them, "
  95.                 "you can not use Picasso96 yet. Ask the development team or the maker of your "
  96.                 "card(s) to build a suitable driver."
  97.             )
  98.         )
  99.  
  100.     ; Monitor
  101.         (set #15kHzMonitor "15 kHz")
  102.         (set #31kHzMonitor "31 kHz")
  103.         (set #35kHzMonitor "35 kHz")
  104.         (set #38kHzMonitor "38 kHz")
  105.         (set #48kHzMonitor "48 kHz")
  106.         (set #57kHzMonitor "57 kHz")
  107.         (set #64kHzMonitor "64 kHz")
  108.         (set #AskMonitor "What horizontal scan rates can your monitor handle?")
  109.         (set #AskMonitorHelp
  110.             (cat
  111.                 "Look in the manuals of your monitors and look for the horizontal "
  112.                 "scan rates it can handle. They are specified like 30-38 kHz. "
  113.                 "Select the best matching choice."
  114.             )
  115.         )
  116.  
  117.     ; Libs
  118.         (set #AskLibPath "Where do you want to have the Picasso96 library files installed?")
  119.         (set #AskLibPathHelp
  120.             (cat
  121.                 "If you are not absolutely sure what to choose, choose \""
  122.                 #LibsDefaultPath "\"!"
  123.             )
  124.         )
  125.         (set #AskLibPathLibs #LibsDefaultPath)
  126.         (set #AskLibPathUser "Select another location")
  127.  
  128.         (set #SelectLibDir "Choose a directory for the Picasso96 library files.")
  129.         (set #SelectLibDirHelp
  130.             (cat
  131.                 "This directory MUST be a part of your LIBS: assign!"
  132.                 "It has to be part of libs: before the monitors are launched."
  133.                 "Therefore, it is usually best to install them in SYS:libs."
  134.             )
  135.         )
  136.  
  137.     ; Monitor
  138.         (set #AskMonitorPath "Where do you want to have the monitor files of Picasso96 installed?")
  139.         (set #AskMonitorPathHelp
  140.             (cat
  141.                 "If you are not absolutely sure what to choose, choose \""
  142.                 #MonitorsDefaultPath "\"!"
  143.             )
  144.         )
  145.         (set #AskMonitorPathMonitors #MonitorsDefaultPath)
  146.         (set #AskMonitorPathUser "Select another location")
  147.  
  148.         (set #SelectMonitorDir "Choose a directory for Picasso96's monitor files.")
  149.         (set #SelectMonitorDirHelp
  150.             (cat
  151.                 "If you want to have Picasso96 started automatically during the"
  152.                 "system boot phase, it would be the best idea to put the monitor"
  153.                 "in \"" #MonitorsDefaultPath "\"."
  154.             )
  155.         )
  156.  
  157.     ; Prefs
  158.         (set #AskPrefsPath "Where do you want to have the Picasso96 preferences program \"Picasso96Mode\" installed?")
  159.         (set #AskPrefsPathHelp
  160.             (cat
  161.                 "If you are not absolutely sure what to choose, choose \""
  162.                 #PrefsDefaultPath "\"!"
  163.             )
  164.         )
  165.         (set #AskPrefsPathPrefs #PrefsDefaultPath)
  166.         (set #AskPrefsPathUser "Select another location")
  167.  
  168.         (set #SelectPrefsDir "Choose a directory for Picasso96Mode.")
  169.         (set #SelectPrefsDirHelp
  170.             (cat
  171.                 "It is usually a good idea to put Picasso96Mode in \"" #PrefsDefaultPath "\"."
  172.             )
  173.         )
  174.  
  175.     ; Settings
  176.         (set #AskSettingsPath "Where do you want to have the Picasso96 settings file installed?")
  177.         (set #AskSettingsPathHelp
  178.             (cat
  179.                 "If you are not absolutely sure what to choose, choose \""
  180.                 #SettingsDefaultName "\"!"
  181.             )
  182.         )
  183.         (set #AskSettingsPathDevs #SettingsDefaultName)
  184.         (set #AskSettingsPathUser "Select another location")
  185.  
  186.         (set #SelectSettingsDir "Choose a directory for the Picasso96 settings file.")
  187.         (set #SelectSettingsDirHelp
  188.             (cat
  189.                 "It is usually a good idea to store the settings as \"" #SettingsDefaultName "\"."
  190.             )
  191.         )
  192.         (set #AskSettingsCopy "There is already a settings file!\nDo you want to keep the old one?")
  193.         (set #AskSettingsCopyHelp
  194.             (cat
  195.                 "Warning! If you select overwrite all current settings will be replaced with the default "
  196.                 "settings. Your old file will be moved to " #_settingsname ".bak"
  197.             )
  198.         )
  199.         (set #Keep "Keep old")
  200.         (set #Overwrite "Install new")
  201.  
  202.     ; Main
  203.         (set #SelectMainDir "Where do you want to have the support files installed?\nA drawer named Picasso96 will be created there.")
  204.         (set #SelectMainDirHelp
  205.             (cat
  206.                 "A new drawer named Picasso96 will be created to hold the files."
  207.                 "An appropriate assign will be added to your user-startup file later."
  208.             )
  209.         )
  210.  
  211.     ; Copy
  212.         (set #Picasso96HomeDir "Creating drawer for applications and scripts.")
  213.         (set #Picasso96HomeDirHelp "The drawer created now holds the applications and the update and uninstall scripts.")
  214.         (set #Picasso96Dir "Creating drawer for cards and chips.")
  215.         (set #Picasso96DirHelp "The drawer created now holds the chip and card drivers and the main rtg.library.")
  216.         (set #CopyPicasso96 "Installing Picasso96API.library.")
  217.         (set #CopyPicasso96Help "This library is needed for Picasso96 applications.")
  218.         (set #CopyRtg "Installing RTG system library.")
  219.         (set #CopyRtgHelp "This library provides the graphics system functions.")
  220.         (set #CopyFL "Installing fast layers library.")
  221.         (set #CopyFLHelp "This library improves window movement performance.")
  222.         (set #CopyPDT
  223.             (cat "Installing a new picture.datatype to SYS:Classes/Datatypes. "
  224.                  "Your old one will be saved as SYS:Classes/Datatypes/picture.datatype.old "
  225.                  "The new picture.datatype is absolutely required."
  226.             )
  227.         )
  228.         (set #CopyPDTHelp
  229.             (cat "The original AmigaOS V40 picture.datatype doesn't "
  230.                  "work with graphics boards. This will install a new one "
  231.                  "which has all the funtionality of the old one, but also can "
  232.                  "handle graphics boards. Your old picture.datatype will be saved "
  233.                  "as SYS:Classes/Datatypes/picture.datatype.old. "
  234.             )
  235.         )
  236.         (set #CopyCard "Installing board driver for %s.")
  237.         (set #CopyCardHelp "This driver is needed for at least one of your boards.")
  238.         (set #CopyMonitor "Installing monitor driver for %s.")
  239.         (set #CopyMonitorHelp "This driver is needed for at least one of your boards.")
  240.         (set #MonitorToolType "Adjusting tooltypes for %s's monitor driver.")
  241.         (set #MonitorToolTypeHelp "This step configures the monitor driver.")
  242.         (set #CopyChip "Installing chipset driver for %s.")
  243.         (set #CopyChipHelp "This driver is needed for at least one of your boards.")
  244.  
  245.         (set #CopyPicasso96Mode "Installing Picasso96Mode.")
  246.         (set #CopyPicasso96ModeHelp "You will need Picasso96Mode to adjust your display settings.")
  247.         (set #Picasso96ModeIconType "Adjusting the tooltypes of Picasso96Mode and its icon position.")
  248.         (set #Picasso96ModeIconTypeHelp "The tooltypes of Picasso96Mode will reflect your choice about the location of the settings file.")
  249.     
  250.         (set #CopyEmuLib "Installing cross platform emulation library.")
  251.         (set #CopyEmuLibHelp
  252.             (cat
  253.                 "You will need this library to run programs "
  254.                 "written for other graphics board systems."
  255.             )
  256.         )
  257.         
  258.         (set #CopyPicasso96API "Installing Picasso96API.library")
  259.         (set #CopyPicasso96APIHelp "The Picasso96API.library is needed for applications with direct Picasso96 support.")
  260.     
  261.         (set #CopyApps "Installing additional programs.")
  262.         (set #CopyAppsHelp "During this step some utilities will be installed.")
  263.  
  264.     ; User-Startup
  265.         (set #AddUserStartup "Performing changes to User-Startup.")
  266.         (set #AddUserStartupHelp
  267.             (cat
  268.                 "An assignment \""
  269.                 #MainPath
  270.                 ":\" will be added to your SYS:s/User-Startup file. "
  271.                 "This is primarily needed when updating Picasso96."
  272.             )
  273.         )
  274.     
  275.     ; Install
  276.         (set #Msg-Installing "Installing Picasso96 files!")
  277.  
  278.     ; Update
  279.         (set #Msg-Updating "Updating existing installation!")
  280.  
  281.     ; Delete
  282.         (set #Msg-Deleting "Deleting existing installation!")
  283.     
  284.     ; Install Drivers
  285.         (set #CopyDrivers "\nDo you want to have the application drivers copied to your harddisk?")
  286.         (set #CopyDriversHelp "The drivers will be installed to the Picasso96 directory on your harddisk to allow easy on-demand installation.")
  287.         (set #MsgInstallFromHD "\nPlease install the application drivers from the Picasso96 home dirctory or from the driver disk.")
  288.     )
  289. )
  290.  
  291. ;=============================================================================
  292. ; German strings
  293. ;=============================================================================
  294.  
  295. (if
  296.     (= @language "deutsch")
  297.     (
  298.     ; startup message
  299.         (set #StartupMsg1
  300.             (cat
  301.                 "Aufgrund des Umfanges und der Komplexität der Software erfordert Picasso96 einen erfahrenen "
  302.                 "Amiga Benutzer für die Installation und Konfiguration. Falls Sie sich mit dem Amiga noch "
  303.                 "nicht so gut auskennen und bereits eine zu Ihrer Zufriedenheit funktionierende Arbeitsumgebung "
  304.                 "besitzen, sollten Sie sich die Installation von Picasso96 noch einmal überlegen. "
  305.                 "Diese Version von Picasso96 stellt den augenblicklichen Stand der Entwicklung der Software dar "
  306.                 "und funktioniert auf den meisten Konfigurationen. Trotzdem kann es sein, daß es gerade auf "
  307.                 "Ihrem System nicht funktioniert. Deswegen sollten Sie auf jeden Fall vor der Installation eine "
  308.                 "Sicherung Ihres Systems durchführen! "
  309.             )
  310.         )
  311.         (set #StartupMsg2
  312.             (cat
  313.                 "Vor der weiteren Installation möchten wir Sie bitten, andere eventuell installierte "
  314.                 "Grafikkartentreiber zu deaktivieren und einen Warmstart durchzuführen, da Picasso96 "
  315.                 "sonst nicht zuverlässig arbeiten kann. "
  316.                 "Aufgrund der hohen Komplexität und Vielfalt unterschiedlicher Installationsformen "
  317.                 "können wir diesen Schritt leider nicht vollautomatisch durchführen und bitten "
  318.                 "deshalb Sie, dies manuell durchzuführen. Hinweise, wie das zu bewerkstelligen "
  319.                 "ist, entnehmen Sie bitte der Dokumentation ihres Systems oder auch dem entsprechenden "
  320.                 "Abschnitt in der Picasso96 Anleitung. "
  321.             )
  322.         )
  323.         (set #StartupMsg3
  324.             (cat
  325.                 "Bitte lesen Sie die Dokumentation bevor Sie Picasso96 installieren. Das Einrichten und die "
  326.                 "Konfiguration von Grafikkartentreibern ist leider nicht trivial und sollte erst durchgeführt "
  327.                 "werden, wenn man sich ein paar Gedanken gemacht hat. Möchten Sie die Dokumentation jetzt lesen? "
  328.             )
  329.         )
  330.         (set #StartupHelp3
  331.             (cat
  332.                 "Bitte lesen Sie die Dokumentation! Das kann Ihnen einigen Ärger ersparen!"
  333.             )
  334.         )
  335.         
  336.     ; Errors
  337.         (set #Err-Bad-Kick "Sie benötigen mindestens KickStart 3.0 für Picasso96!")
  338.         (set #Err-Bad-CPU "Sie benötigen mindestens eine Motorola M68020 CPU für Picasso96!")
  339.         (set #Err-No-Boards "Sie hätten wirklich mindestens eine Grafikkarte auswählen sollen!")
  340.         (set #Err-No-UpdateScript "Leider konnte kein Skript zum Aktualisieren von einer früheren Installation gefunden werden, bitte frisch installieren!")
  341.         (set #Err-No-DeleteScript "Leider konnte kein Skript zum Entfernen von einer früheren Installation gefunden werden, bitte manuell entfernen!")
  342.  
  343.     ; Warnings
  344.         (set #Warning-NoBoards "Ihr Rechner scheint keine kompatible Grafikkarte installiert zu haben!")
  345.  
  346.     ; Message
  347.         (set #Message
  348.             (cat
  349.                 "Vielen Dank, daß Sie \nPicasso96\n installieren wollen.\n\n"
  350.                 "Picasso96 ist die neue systemfreundliche Software für fast alle Amiga-Grafikkarten."
  351.             )
  352.         )
  353.  
  354.     ; Install/Update
  355.         (set #InstallMode "Wollen Sie Picasso96 installieren, aktualisieren oder entfernen?")
  356.         (set #InstallModeHelp
  357.             (cat
  358.                 "Wenn Sie Installieren wählen, wird Picasso96 mit allen Konfigurationsdateien installiert,"
  359.                 "wenn Sie Aktualisieren wählen, werden Ihre Konfigurationsdateien nicht verändert."
  360.             )
  361.         )
  362.         (set #Install "Installieren")
  363.         (set #Update "Aktualisieren")
  364.         (set #Uninstall "Entfernen")
  365.  
  366.     ; Boards
  367.         (set #AskBoards "Welche Grafikkarten wollen Sie mit Picasso96 verwenden?")
  368.         (set #AskBoardsHelp
  369.             (cat
  370.                 "Wählen Sie die Karten, die Sie besitzen. Wenn Sie keine der angegebenen "
  371.                 "besitzen, können Sie Picasso96 leider noch nicht benutzen. Fragen Sie das "
  372.                 "Entwicklerteam oder den Hersteller Ihrer Grafikkarte nach einem passenden Treiber."
  373.             )
  374.         )
  375.  
  376.     ; Monitor
  377.         (set #15kHzMonitor "15 kHz")
  378.         (set #31kHzMonitor "31 kHz")
  379.         (set #35kHzMonitor "35 kHz")
  380.         (set #38kHzMonitor "38 kHz")
  381.         (set #48kHzMonitor "48 kHz")
  382.         (set #57kHzMonitor "57 kHz")
  383.         (set #64kHzMonitor "64 kHz")
  384.         (set #AskMonitor "Welche Horizontalfrequenz kann Ihr Monitor handhaben?")
  385.         (set #AskMonitorHelp
  386.             (cat
  387.                 "Sehen Sie im Handbuch Ihres Monitors nach, welche Horizontalfrequenzen "
  388.                 "er verkraften. Dort finden Sie zum Beispiel eine Angabe wie 30-38 kHz. "
  389.                 "Wählen Sie die Möglichkeit aus, die am besten zu Ihren Monitor paßt."
  390.             )
  391.         )
  392.  
  393.     ; Libs
  394.         (set #AskLibPath "Wo sollen die Funktionsbibliotheken für Picasso96 installiert werden?")
  395.         (set #AskLibPathHelp
  396.             (cat
  397.                 "Die Funktionsbibliotheken müssen in das Verzeichnis kopiert werden, auf welches "
  398.                 "der Assign Libs: während des Startvorgangs (vor User-Startup!) zeigt. "
  399.                 "Im Zweifelsfall nehmen Sie einfach " #LibsDefaultPath "!"
  400.             )
  401.         )
  402.         (set #AskLibPathLibs #LibsDefaultPath)
  403.         (set #AskLibPathUser "Einen anderen Ort wählen")
  404.  
  405.         (set #SelectLibDir "Wählen Sie ein Verzeichnis für die Funktionsbibliotheken von Picasso96.")
  406.         (set #SelectLibDirHelp
  407.             (cat
  408.                 "Dieses Verzeichnis MUSS ein Teil Ihrer LIBS: Zuweisung sein!"
  409.                 "Es muß zu dem Zeitpunkt verfügbar sein, zu dem die Monitordateien gestartet werden."
  410.                 "Deshalb ist es meistens am besten, die Dateien in SYS:Libs zu installieren."
  411.             )
  412.         )
  413.  
  414.     ; Monitor
  415.         (set #AskMonitorPath "Wo sollen die Monitor Dateien für Picasso96 installiert werden?")
  416.         (set #AskMonitorPathHelp
  417.             (cat
  418.                 "Wenn Sie nicht wirklich ganz genau wissen, wie Sie sich entscheiden sollen, wählen Sie \""
  419.                 #MonitorsDefaultPath "\"!"
  420.             )
  421.         )
  422.         (set #AskMonitorPathMonitors #MonitorsDefaultPath)
  423.         (set #AskMonitorPathUser "Einen anderen Ort wählen")
  424.  
  425.         (set #SelectMonitorDir "Wählen Sie ein Verzeichnis die Monitor-Dateien von Picasso96.")
  426.         (set #SelectMonitorDirHelp
  427.             (cat
  428.                 "Wenn Picasso96 während der Systeminitialisierung gestartet werden soll, ist"
  429.                 "es am besten, die Monitor Dateien nach \"" #MonitorsDefaultPath "\"zu kopieren."
  430.             )
  431.         )
  432.  
  433.     ; Prefs
  434.         (set #AskPrefsPath "Wo soll \"Picasso96Mode\", das Programm zur Einstellung der Auflösungen, installiert werden?")
  435.         (set #AskPrefsPathHelp
  436.             (cat
  437.                 "Wenn Sie nicht genau wissen, was Sie wollen, nehmen Sie \""
  438.                 #PrefsDefaultPath "\"!"
  439.             )
  440.         )
  441.         (set #AskPrefsPathPrefs #PrefsDefaultPath)
  442.         (set #AskPrefsPathUser "Einen anderen Ort wählen")
  443.  
  444.         (set #SelectPrefsDir "Wählen Sie ein Verzeichnis für Picasso96Mode.")
  445.         (set #SelectPrefsDirHelp
  446.             (cat
  447.                 "Es ist normalerweise nicht schlecht, Picasso96Mode nach \"" #PrefsDefaultPath "\"zu kopieren."
  448.             )
  449.         )
  450.  
  451.     ; Settings
  452.         (set #AskSettingsPath "Wo soll die Datei für die Bildschirmauflösungen gespeichert werden?")
  453.         (set #AskSettingsPathHelp
  454.             (cat
  455.                 "Wir empfehlen \""
  456.                 #SettingsDefaultName "\"."
  457.             )
  458.         )
  459.         (set #AskSettingsPathDevs #SettingsDefaultName)
  460.         (set #AskSettingsPathUser "Einen anderen Ort wählen")
  461.  
  462.         (set #SelectSettingsDir "Wählen Sie ein Verzeichnis für die Datei der Bildschirmauflösungen.")
  463.         (set #SelectSettingsDirHelp
  464.             (cat
  465.                 "Unser Vorschlag ist \"" #SettingsDefaultName "\"."
  466.             )
  467.         )
  468.         (set #AskSettingsCopy "Es gibt schon so eine alte Datei mit Bildschirmauflösungen!\nWollen Sie die alte behalten?")
  469.         (set #AskSettingsCopyHelp
  470.             (cat
  471.                 "Achtung! Wenn Sie überschreiben wählen, dann werden die jetzigen Einstellungen "
  472.                 "mit den ausgelieferten überschrieben! Ihre alte Datei wird in " #_settingsname ".bak umbenannt."
  473.             )
  474.         )
  475.         (set #Keep "Alte behalten")
  476.         (set #Overwrite "Neue installieren")
  477.  
  478.     ; Main
  479.         (set #SelectMainDir "Wo sollen die anderen Dateien installiert werden?\nEin neues Verzeichnis mit Namen Picasso96 wird dort installiert.")
  480.         (set #SelectMainDirHelp
  481.             (cat
  482.                 "Dort werden ein paar Zubehördateien installiert, die für den alltäglichen Betrieb nicht gebraucht werden."
  483.                 "Eine dazugehörende Zuweisung wird später auch Ihrer User-Startup Datei hinzugefügt."
  484.             )
  485.         )
  486.  
  487.     ; Copy
  488.         (set #Picasso96HomeDir "Picasso96 Stammverzeichnis wird angelegt.")
  489.         (set #Picasso96HomeDirHelp "Das angelegte Verzeichnis beherbergt das Zubehör.")
  490.         (set #Picasso96Dir "Das Verzeichnis für die Kartentreiber wird angelegt.")
  491.         (set #Picasso96DirHelp "Dieses Verzeichnis wird die hardwarenahen Treiber sowie die rtg.library aufnehmen.")
  492.         (set #CopyPicasso96 "Installation der Picasso96API.library Funktionsbibliothek.")
  493.         (set #CopyPicasso96Help "Diese Bibliothek wird für Picasso96-Anwendungen benötigt.")
  494.         (set #CopyRtg "Installation des RTG Systems.")
  495.         (set #CopyRtgHelp "Diese Funktionsbibliothek enthält die Grafikfunktionserweiterungen.")
  496.         (set #CopyFL "Installation der FastLayers Bibliothek.")
  497.         (set #CopyFLHelp "Diese Funktionsbibliothek erhöht die Geschwindigkeit der Bewegung von Fenstern.")
  498.         (set #CopyPDT
  499.             (cat "Es wird ein neuer picture.datatype nach SYS:Classes/Datatypes installiert. "
  500.                     "Ihr alter picture.dataype wird als SYS:Classes/Datatypes/picture.datatype.old "
  501.                     "gesichert. Der neue picture.datatype wird unbedingt benötigt. "
  502.             )
  503.         )
  504.         (set #CopyPDTHelp
  505.             (cat "Der Original-AmigaOS-V40-picture.datatype funktioniert nicht mit "
  506.                     "Grafikkarten. Hier wird ein neuer picture.datatype installiert, "
  507.                     "der zum alten voll kompatibel ist aber zusätzlich mit "
  508.                     "Grafikkarten zusammenarbeitet. "
  509.                     "Ihr alter picture.dataype wird als SYS:Classes/Datatypes/picture.datatype.old "
  510.                     "gesichert. "
  511.             )
  512.         )
  513.         (set #CopyCard "Installation des Hardwaretreibers für %s.")
  514.         (set #CopyCardHelp "Dieser Treiber wird für mindestens eine der Karten dieses Typs benötigt.")
  515.         (set #CopyMonitor "Installation der Monitordatei für %s.")
  516.         (set #CopyMonitorHelp "Dieser Treiber wird für mindestens eine der Karten dieses Typs benötigt.")
  517.         (set #MonitorToolType "Passe ToolTypes für %s an.")
  518.         (set #MonitorToolTypeHelp "Dieser Schritt konfiguriert den Monitortreiber.")
  519.         (set #CopyChip "Installation des Chipsatztreibers für %s.")
  520.         (set #CopyChipHelp "Dieser Treiber wird für mindestens eine Ihrer Grafikkarten benötigt.")
  521.  
  522.         (set #CopyPicasso96Mode "Installiere Picasso96Mode.")
  523.         (set #CopyPicasso96ModeHelp "Picasso96Mode wird zum Anpassen der Auflösungen an Ihr System benötigt.")
  524.         (set #Picasso96ModeIconType "Anpassung der ToolTypes und Iconposition von Picasso96Mode.")
  525.         (set #Picasso96ModeIconTypeHelp "Die ToolTypes von Picasso96Mode werden entsprechend Ihrer Wahl des Dateinamens der Datei mit den Auflösungen gesetzt.")
  526.     
  527.         (set #CopyEmuLib "Installation der Emulationsbibliothek.")
  528.         (set #CopyEmuLibHelp
  529.             (cat
  530.                 "Diese Bibliothek wird benötigt, um Programme zu unterstützen, "
  531.                 "die für andere Grafikkartensysteme geschrieben wurden."
  532.             )
  533.         )
  534.     
  535.         (set #CopyPicasso96API "Installiere Picasso96API.library")
  536.         (set #CopyPicasso96APIHelp "Die Picasso96API.library wird für Programme mit direkter Picasso96 Unterstützung benötigt.")
  537.     
  538.         (set #CopyApps "Installation des Zubehörs.")
  539.         (set #CopyAppsHelp "In diesem Schritt werden Zubehörprogramme installiert.")
  540.  
  541.     ; User-Startup
  542.         (set #AddUserStartup "Änderungen an User-Startup durchführen.")
  543.         (set #AddUserStartupHelp
  544.             (cat
  545.                 "Eine Zuweisung \""
  546.                 #MainPath
  547.                 ":\" wir Ihrer SYS:s/User-Startup Datei hinzugefügt. "
  548.                 "Diese wird hauptsächlich zum Aktualisieren benötigt."
  549.             )
  550.         )
  551.     
  552.     ; Install
  553.         (set #Msg-Installing "Installiere Picasso96 System!")
  554.  
  555.     ; Update
  556.         (set #Msg-Updating "Aktualisierung Ihres Picasso96 Systems!")
  557.  
  558.     ; Delete
  559.         (set #Msg-Deleting "Entferne Ihre Picasso96 Installation!")
  560.     
  561.     ; Install Drivers
  562.         (set #CopyDrivers "\nMöchten Sie die Applikationstreiber auf die Festplatte kopieren, um sie bei Bedarf von dort installieren zu können?")
  563.         (set #CopyDriversHelp "Die Treiber werden in das Picasso96 Verzeichnis auf Ihrer Festplatte kopiert. Von dort können Sie diese Treiber dann individuell nach Bedarf installieren.")
  564.         (set #MsgInstallFromHD "\nBitte installieren sie die Treiber für die Anwendungen aus dem Picasso96 Verzeichnis oder von der Diskette.")
  565.     )
  566. )
  567.  
  568. ;=============================================================================
  569. ; Italian strings
  570. ;=============================================================================
  571.  
  572. (if
  573.     (= @language "italiano")
  574.     (
  575.     ; startup message
  576.         (set #StartupMsg1
  577.             (cat
  578.                 "Picasso96 è un sistema software complesso e richiede un po' di esperienza per l'installazione e la configurazione. "
  579.                 "Se sei un po' inesperto di Amiga ed hai già un ambiente funzionante per la tua scheda grafica, "
  580.                 "è meglio che ci pensi due volte prima di installare Picasso96! "
  581.                 "Questa versione di Picasso96 è una `istantanea' dello sviluppo in corso e funziona sulla maggior parte dei sistemi. Comunque, "
  582.                 "il tuo sistema può essere diverso in qualche particolare e questa versione di Picasso96 potrebbe non funzionare sul tuo Amiga. "
  583.                 "Perciò, effettua una copia di sicurezza della tua configurazione di sistema corrente prima di installare Picasso96! "
  584.             )
  585.         )
  586.         (set #StartupMsg2
  587.             (cat
  588.                 "Prima di proseguire, disabilita i driver correnti per la tua scheda grafica, se presenti, e rilancia Amiga. "
  589.                 "In caso contrario il tuo sistema probabilmente non funzionerà correttamente in seguito. "
  590.                 "A causa della complessità dei diversi sistemi disponibili, non è possibile effettuare questa operazione "
  591.                 "in modo automatico, per cui devi farla manualmente. Fai riferimento ai manuali del tuo driver corrente "
  592.                 "o leggi l'apposita sezione del manuale di Picasso96. "
  593.             )
  594.         )
  595.         (set #StartupMsg3
  596.             (cat
  597.                 "Leggi la documentazione prima di installare Picasso96. L'avvio e la configurazione di driver grafici "
  598.                 "non è semplice e dovresti farla tenendo ben presenti alcune cose. Vuoi leggere adesso il manuale? "
  599.             )
  600.         )
  601.         (set #StartupHelp3
  602.             (cat
  603.                 "Leggi la documentazione! Ti potrebbe aiutare nell'evitare alcuni problemi!"
  604.             )
  605.         )
  606.  
  607.     ; Errors
  608.         (set #Err-Bad-Kick "Per usare Picasso96 hai bisogno almeno del KickStart 3.0!")
  609.         (set #Err-Bad-CPU "Per usare Picasso96 hai bisogno almeno di CPU Motorola M68020!")
  610.         (set #Err-No-Boards "Dovresti aver scelto almeno un tipo di scheda grafica!")
  611.         (set #Err-No-UpdateScript "Non riesco a trovare lo script di aggiornamento di una precedente installazione, fai la copia di sicurezza dei file di configurazione e riesegui l'installazione!")
  612.         (set #Err-No-DeleteScript "Non riesco a trovare lo script di aggiornamento di una precedente installazione, effettua la rimozione manualmente.")
  613.  
  614.     ; Warnings
  615.         (set #Warning-NoBoards "Sembra che il tuo Amiga non abbia schede grafiche compatibili installate!")
  616.  
  617.     ; Message
  618.         (set #Message
  619.             (cat
  620.                 "Grazie mille per aver scelto \nPicasso96\n come tuo sistema grafico.\n\n"
  621.                 "Picasso96 è il nuovo ambiente di gestione per molte schede grafiche di Amiga compatibile col sistema."
  622.             )
  623.         )
  624.  
  625.     ; Install/Update
  626.         (set #InstallMode "Vuoi effettuare l'installazione, l'aggiornamento o la disinstallazione di Picasso96?")
  627.         (set #InstallModeHelp
  628.             (cat
  629.                 "Scegliendo Installa, installerai Picasso96 con tutti i file di configurazione,"
  630.                 "se fai click su Aggiorna, i tuoi file di configurazione esistenti non saranno toccati."
  631.             )
  632.         )
  633.         (set #Install "Installa")
  634.         (set #Update "Aggiorna")
  635.         (set #Uninstall "Disinstalla")
  636.  
  637.     ; Boards
  638.         (set #AskBoards "Che tipo di scheda(e) grafica(e) vuoi usare con Picasso96?")
  639.         (set #AskBoardsHelp
  640.             (cat
  641.                 "Scegli la(e) scheda(e) che possiedi, se non ne possiedi una, non puoi "
  642.                 "usare Picasso96. Chiedi agli sviluppatori o al costruttore della tua "
  643.                 "scheda di realizzare un apposito driver."
  644.             )
  645.         )
  646.  
  647.     ; Monitor
  648.         (set #15kHzMonitor "15 kHz")
  649.         (set #31kHzMonitor "31 kHz")
  650.         (set #35kHzMonitor "35 kHz")
  651.         (set #38kHzMonitor "38 kHz")
  652.         (set #48kHzMonitor "48 kHz")
  653.         (set #57kHzMonitor "57 kHz")
  654.         (set #64kHzMonitor "64 kHz")
  655.         (set #AskMonitor "Quale frequenza di scansione orizzontale può gestire il tuo monitor?")
  656.         (set #AskMonitorHelp
  657.             (cat
  658.                 "Guarda nei manuali del tuo monitor e cerca la frequenza di scansione "
  659.                 "orizzontale che può gestire. In genere sono specificate come 30-38 kHz. "
  660.                 "Scegli l'opzione che meglio si adatta."
  661.             )
  662.         )
  663.  
  664.     ; Libs
  665.         (set #AskLibPath "Dove vuoi installare i file library di Picasso96?")
  666.         (set #AskLibPathHelp
  667.             (cat
  668.                 "Se non sei sicuro di cosa rispondere, scegli \""
  669.                 #LibsDefaultPath "\"!"
  670.             )
  671.         )
  672.         (set #AskLibPathLibs #LibsDefaultPath)
  673.         (set #AskLibPathUser "Scegli un'altra destinazione")
  674.  
  675.         (set #SelectLibDir "Scegli una directory per i file library di Picasso96.")
  676.         (set #SelectLibDirHelp
  677.             (cat
  678.                 "Questa directory DEVE essere parte delle tue assegnazioni per LIBS:!"
  679.                 "Deve essere parte di libs: prima che siano attivati i file per monitor."
  680.                 "Di solito è meglio installare tali file in SYS:libs."
  681.             )
  682.         )
  683.  
  684.     ; Monitor
  685.         (set #AskMonitorPath "Dove vuoi installare i file per monitor di Picasso96?")
  686.         (set #AskMonitorPathHelp
  687.             (cat
  688.                 "Se non sei sicuro di cosa rispondere, scegli \""
  689.                 #MonitorsDefaultPath "\"!"
  690.             )
  691.         )
  692.         (set #AskMonitorPathMonitors #MonitorsDefaultPath)
  693.         (set #AskMonitorPathUser "Scegli un'altra destinazione")
  694.  
  695.         (set #SelectMonitorDir "Scegli una directory per i file monitor di Picasso96.")
  696.         (set #SelectMonitorDirHelp
  697.             (cat
  698.                 "Se si desidera che Picasso96 sia avviato automaticamente durante la"
  699.                 "fase di lancio del sistema, la miglior soluzione sarebbe mettere i file per monitor"
  700.                 "in \"" #MonitorsDefaultPath "\"."
  701.             )
  702.         )
  703.  
  704.     ; Prefs
  705.         (set #AskPrefsPath "Dove vuoi installare il programma \"Picasso96Mode\" per l'impostazione di Picasso96?")
  706.         (set #AskPrefsPathHelp
  707.             (cat
  708.                 "Se non sei sicuro di cosa rispondere, scegli \""
  709.                 #PrefsDefaultPath "\"!"
  710.             )
  711.         )
  712.         (set #AskPrefsPathPrefs #PrefsDefaultPath)
  713.         (set #AskPrefsPathUser "Scegli un'altra destinazione")
  714.  
  715.         (set #SelectPrefsDir "Scegli una directory per Picasso96Mode.")
  716.         (set #SelectPrefsDirHelp
  717.             (cat
  718.                 "Solitamente è una buona soluzione mettere Picasso96Mode in \"" #PrefsDefaultPath "\"."
  719.             )
  720.         )
  721.  
  722.     ; Settings
  723.         (set #AskSettingsPath "Dove vuoi installare i file di impostazione per Picasso96?")
  724.         (set #AskSettingsPathHelp
  725.             (cat
  726.                 "Se non sei sicuro di cosa rispondere, scegli \""
  727.                 #SettingsDefaultName "\"!"
  728.             )
  729.         )
  730.         (set #AskSettingsPathDevs #SettingsDefaultName)
  731.         (set #AskSettingsPathUser "Scegli un'altra destinazione")
  732.  
  733.         (set #SelectSettingsDir "Scegli una directory per i file di impostazione per Picasso96.")
  734.         (set #SelectSettingsDirHelp
  735.             (cat
  736.                 "Solitamente è una buona soluzione immagazzinare le impostazioni come \"" #SettingsDefaultName "\"."
  737.             )
  738.         )
  739.         (set #AskSettingsCopy "Un file di impostazione è già presente!\nVuoi mantenere quello vecchio?")
  740.         (set #AskSettingsCopyHelp
  741.             (cat
  742.                 "Attenzione! Se scegli la sovrascrittura, tutte le impostazioni correnti saranno sostituite da quelle predefinite. "
  743.                 "Il tuo vecchio file sarà rinominato in " #_settingsname ".bak"
  744.             )
  745.         )
  746.         (set #Keep "Tieni il vecchio")
  747.         (set #Overwrite "Installa il nuovo")
  748.  
  749.     ; Main
  750.         (set #SelectMainDir "Dove vuoi installare i file di supporto?\nSarà creato un cassetto di nome Picasso96.")
  751.         (set #SelectMainDirHelp
  752.             (cat
  753.                 "Un nuovo cassetto chiamato Picasso96 sarà creato per contenere i file."
  754.                 "In seguito sarà aggiunta una opportuna assegnazione nel tuo file user-startup."
  755.             )
  756.         )
  757.  
  758.     ; Copy
  759.         (set #Picasso96HomeDir "Sto creando il cassetto per applicativi e script.")
  760.         (set #Picasso96HomeDirHelp "Il cassetto ora creato contiene applicativi e script per l'aggiornamento e la disinstallazione.")
  761.         (set #Picasso96Dir "Sto creando il cassetto per schede grafiche e chip.")
  762.         (set #Picasso96DirHelp "Il cassetto ora creato contiene i driver per chip e schede grafiche, nonché la rtg.library principale.")
  763.         (set #CopyPicasso96 "Sto installando la Picasso96API.library.")
  764.         (set #CopyPicasso96Help "Questa library serve per gli applicativi Picasso96.")
  765.         (set #CopyRtg "Sto installando la RTG library di sistema.")
  766.         (set #CopyRtgHelp "Questa library fornisce le funzioni grafiche di sistema.")
  767.         (set #CopyFL "Sto installando la fast layers library.")
  768.         (set #CopyFLHelp "Questa library migliora le prestazioni nello spostamento di finestre.")
  769.         (set #CopyPDT
  770.             (cat "Sto installando un nuovo picture.datatype in SYS:Classes/Datatypes. "
  771.                  "Il vecchio sarà salvato come SYS:Classes/Datatypes/picture.datatype.old "
  772.                  "Il nuovo picture.datatype è assolutamente necessario."
  773.             )
  774.         )
  775.         (set #CopyPDTHelp
  776.             (cat "Il picture.datatype V40 originale di AmigaOS non funziona"
  777.                  "con le schede grafiche. Per tale motivo è installato il nuovo "
  778.                  "che ha tutte le funzionalità del vecchio, ma può anche "
  779.                  "gestire schede grafiche. Il vecchio picture.datatype sarà salvato "
  780.                  "come SYS:Classes/Datatypes/picture.datatype.old. "
  781.             )
  782.         )
  783.         (set #CopyCard "Sto installando il driver per la scheda %s.")
  784.         (set #CopyCardHelp "Questo driver è richiesto per almeno una delle tue schede grafiche.")
  785.         (set #CopyMonitor "Sto installando il driver monitor per %s.")
  786.         (set #CopyMonitorHelp "Questo driver è richiesto per almeno una delle tue schede.")
  787.         (set #MonitorToolType "Sto regolando i parametri per il driver monitor di %s.")
  788.         (set #MonitorToolTypeHelp "Questo passaggio serve per configurare il driver monitor.")
  789.         (set #CopyChip "Sto installando il driver per il chipset %s.")
  790.         (set #CopyChipHelp "Questo driver è richiesto per almeno una delle tue schede.")
  791.  
  792.         (set #CopyPicasso96Mode "Sto installando Picasso96Mode.")
  793.         (set #CopyPicasso96ModeHelp "Picasso96Mode ti servirà per regolare le tue impostazioni video.")
  794.         (set #Picasso96ModeIconType "Sto sistemando i parametri di Picasso96Mode e la posizione della sua icona.")
  795.         (set #Picasso96ModeIconTypeHelp "I parametri di Picasso96Mode rifletteranno le tue scelte sulla locazione del file di impostazioni.")
  796.  
  797.         (set #CopyEmuLib "Sto installando la emulation.library.")
  798.         (set #CopyEmuLibHelp
  799.             (cat
  800.                 "Questa library ti servirà solo per usare applicativi "
  801.                 "scritti per altri sistemi di gestione per schede grafiche."
  802.             )
  803.         )
  804.  
  805.         (set #CopyPicasso96API "Sto installando la Picasso96API.library")
  806.         (set #CopyPicasso96APIHelp "La Picasso96API.library è richiesta dagli applicativi che supportano direttamente Picasso96.")
  807.  
  808.         (set #CopyApps "Sto installando i programmi aggiuntivi.")
  809.         (set #CopyAppsHelp "Durante questo passaggio saranno installati alcuni programmi di utilità.")
  810.  
  811.     ; User-Startup
  812.         (set #AddUserStartup "Sto modificando il file User-Startup.")
  813.         (set #AddUserStartupHelp
  814.             (cat
  815.                 "Sarà aggiunta una assegnazione \""
  816.                 #MainPath
  817.                 ":\" al tuo file SYS:s/User-Startup. "
  818.                 "Ciò serve principalmente per gli aggiornamenti di Picasso96."
  819.             )
  820.         )
  821.  
  822.     ; Install
  823.         (set #Msg-Installing "Sto installando i file Picasso96!")
  824.  
  825.     ; Update
  826.         (set #Msg-Updating "Sto aggiornando una installazione già esistente!")
  827.  
  828.     ; Delete
  829.         (set #Msg-Deleting "Sto cancellando una installazione già esistente!")
  830.  
  831.     ; Install Drivers
  832.         (set #CopyDrivers "\nVuoi copiare i driver per applicativi sul tuo disco rigido?")
  833.         (set #CopyDriversHelp "I driver saranno installati nella directory Picasso96 directory sul tuo disco rigido per permetterti una facile installazione a richiesta.")
  834.         (set #MsgInstallFromHD "\nInstalla i driver per applicativi partendo dalla directory base di Picasso96 o dal disco dei driver.")
  835.     )
  836. )
  837.  
  838. ;=============================================================================
  839. ; Procedures
  840. ;=============================================================================
  841. (procedure P_InstallCard
  842.     (
  843.         (copylib
  844.             (prompt (#CopyCard #_boardname))
  845.             (help #CopyCardHelp)
  846.             (source (tackon "libs/Picasso96/" (cat #_boardname ".card")))
  847.             (dest #_libsPicasso96path)
  848.             (confirm)
  849.         )
  850.         (set #_iconpath (tackon #_monitorpath #_boardname))
  851.         (if
  852.             (= 1 (exists #_iconpath))
  853.             (
  854.                 ; kind of update, keep icon
  855.                 (copylib
  856.                     (prompt (#CopyMonitor #_boardname))
  857.                     (help #CopyMonitorHelp)
  858.                     (source "devs/monitors/Picasso96")
  859.                     (dest #_monitorpath)
  860.                     (newname #_boardname)
  861.                     (confirm)
  862.                 )
  863.                 (tooltype
  864.                     (prompt (#MonitorToolType #_boardname))
  865.                     (help #MonitorToolTypeHelp)
  866.                     (dest #_iconpath)
  867.                     (settooltype "BoardType" #_boardname)
  868.                     (settooltype "SettingsFile" #_settingsname)
  869.                     (confirm)
  870.                 )
  871.             )
  872.             (
  873.                 ; install new, copy with icon
  874.                 (copylib
  875.                     (prompt (#CopyMonitor #_boardname))
  876.                     (help #CopyMonitorHelp)
  877.                     (source "devs/monitors/Picasso96")
  878.                     (dest #_monitorpath)
  879.                     (newname #_boardname)
  880.                     (confirm)
  881.                     (infos)
  882.                 )
  883.                 (tooltype
  884.                     (prompt (#MonitorToolType #_boardname))
  885.                     (help #MonitorToolTypeHelp)
  886.                     (dest #_iconpath)
  887.                     (settooltype "(DisplayChain" "Yes)")
  888.                     (settooltype "IgnoreMask" "Yes")
  889.                     (settooltype "(SoftSprite" "Yes)")
  890.                     (settooltype "(BigSprite" "Yes)")
  891.                     (settooltype "(BorderBlank" "Yes)")
  892.                     (settooltype "SettingsFile" #_settingsname)
  893.                     (settooltype "BoardType" #_boardname)
  894.                     (noposition)
  895.                     (confirm)
  896.                 )
  897.             )
  898.         )
  899.     )
  900. )
  901.  
  902. (procedure P_InstallChip
  903.     (copylib
  904.         (prompt (#CopyChip #_chipname))
  905.         (help #CopyChipHelp)
  906.         (source (tackon "libs/Picasso96/" (cat #_chipname ".chip")))
  907.         (dest #_libsPicasso96path)
  908.         (confirm)
  909.     )
  910. )
  911.  
  912. ;=============================================================================
  913. ; Install ...
  914. ;=============================================================================
  915.  
  916. (welcome #Message)
  917.  
  918. (message #StartupMsg1 (all))
  919.  
  920. (message #StartupMsg2 (all))
  921.  
  922. (set #_olduserlevel @user-level)
  923. (user 1)
  924. (if
  925.     (askbool
  926.         (prompt    #StartupMsg3)
  927.         (help        #StartupHelp3)
  928.     )
  929.     (
  930.         (if
  931.             (= @language "english")
  932.             (
  933.                 (run "Copy Picasso96/Picasso96_english.guide RAM:" (safe))
  934.                 (run "SYS:Utilities/MultiView RAM:Picasso96_english.guide" (safe))
  935.             )
  936.         )
  937.         (if
  938.             (= @language "deutsch")
  939.             (
  940.                 (run "Copy Picasso96/Picasso96_deutsch.guide RAM:" (safe))
  941.                 (run "SYS:Utilities/MultiView RAM:Picasso96_deutsch.guide" (safe))
  942.             )
  943.         )
  944.         (if
  945.             (= @language "italiano")
  946.             (
  947.                 (run "Copy Picasso96/Picasso96_italiano.guide RAM:" (safe))
  948.                 (run "SYS:Utilities/MultiView RAM:Picasso96_italiano.guide" (safe))
  949.             )
  950.         )
  951.     )
  952. )
  953. (user #_olduserlevel)
  954.  
  955. (if
  956.     (< (getversion) (* #MinSysVersion 65536))
  957.     (abort #Err-Bad-Kick)
  958. )
  959.  
  960. (if
  961.     (patmatch "68000|68010" (database "cpu"))
  962.     (abort #Err-Bad-Cpu)
  963. )
  964.  
  965. ;*********************
  966.  
  967. (set #_installmode 0)
  968.  
  969. (if
  970.     (= #_installmode 0)
  971.     (
  972.         ;*********************
  973.         ; install
  974.     
  975.         ;*********************
  976.         ; check boards
  977.         
  978.         (set #_boards 0)
  979.  
  980.         ;*********************
  981.         ; CyberVision: mem:34/regs:35
  982.         (set #_CyberVisionCnt (run "FindBoard 8512 34" (safe)))
  983.         (if
  984.             (> #_CyberVisionCnt 0)
  985.             (set #_boards (BITOR #_boards 1))
  986.         )
  987.  
  988.         ;*********************
  989.         ; Domino: mem:1/regs:2
  990.         (set #_DominoCnt (run "FindBoard 2167 1" (safe)))
  991.         (if
  992.             (> #_DominoCnt 0)
  993.             (set #_boards (BITOR #_boards 2))
  994.         )
  995.  
  996.         ;*********************
  997.         ; Graffity: mem:33/regs:34
  998.         (set #_GraffityCnt (run "FindBoard 2092 33" (safe)))
  999.         (if
  1000.             (> #_GraffityCnt 0)
  1001.             (set #_boards (BITOR #_boards 4))
  1002.         )
  1003.  
  1004.         ;*********************
  1005.         ; Merlin: mem:3/regs:4
  1006.         (set #_MerlinCnt (run "FindBoard 2117 3" (safe)))
  1007.         (if
  1008.             (> #_MerlinCnt 0)
  1009.             (set #_boards (BITOR #_boards 8))
  1010.         )
  1011.  
  1012.         ;*********************
  1013.         ; oMniBus: there can only be one!
  1014.         (if
  1015.             (run "FindBoard 2181 0" (safe))
  1016.             (
  1017.                 (set #_oMniBusCnt 1)
  1018.                 (set #_boards (BITOR #_boards 16))
  1019.             )
  1020.         )
  1021.  
  1022.         ;*********************
  1023.         ; PicassoII: mem:11/regs:12
  1024.         (set #_PicassoIICnt (run "FindBoard 2167 11" (safe)))
  1025.         (if
  1026.             (> #_PicassoIICnt 0)
  1027.             (set #_boards (BITOR #_boards 32))
  1028.         )
  1029.  
  1030.         ;*********************
  1031.         ; PicassoIV: 21/22/23/24
  1032.         (set #_PicassoIVCnt (+ (run "FindBoard 2167 21" (safe)) (run "FindBoard 2167 24" (safe))))
  1033.         (if
  1034.             (> #_PicassoIVCnt 0)
  1035.             (set #_boards (BITOR #_boards 64))
  1036.         )
  1037.  
  1038.         ;*********************
  1039.         ; Piccolo: mem:5/regs:6
  1040.         (set #_PiccoloCnt (run "FindBoard 2195 5" (safe)))
  1041.         (if
  1042.             (> #_PiccoloCnt 0)
  1043.             (set #_boards (BITOR #_boards 128))
  1044.         )
  1045.  
  1046.         ;*********************
  1047.         ; PiccoloSD64: mem:10/regs:11
  1048.         (set #_PiccoloSD64Cnt (run "FindBoard 2195 10" (safe)))
  1049.         (if
  1050.             (> #_PiccoloSD64Cnt 0)
  1051.             (set #_boards (BITOR #_boards 256))
  1052.         )
  1053.  
  1054.         ;*********************
  1055.         ; Spectrum: mem:1/regs:2
  1056.         (set #_SpectrumCnt (run "FindBoard 2193 1" (safe)))
  1057.         (if
  1058.             (> #_SpectrumCnt 0)
  1059.             (set #_boards (BITOR #_boards 512))
  1060.         )
  1061.  
  1062.         ;*********************
  1063.         ; user selects boards
  1064.  
  1065.         (if
  1066.             (= 0 #_boards)
  1067.             (message #Warning-NoBoards)
  1068.         )
  1069.  
  1070.         (set #_boards
  1071.             (askoptions
  1072.                 (prompt #AskBoards)
  1073.                 (help #AskBoardsHelp)
  1074.                 (choices
  1075.                     "CyberVision 64"
  1076.                     "Domino"
  1077.                     "Graffity"
  1078.                     "Merlin"
  1079.                     "oMniBus"
  1080.                     "Picasso II/II+"
  1081.                     "Picasso IV"
  1082.                     "Piccolo"
  1083.                     "Piccolo SD64"
  1084.                     "Spectrum"
  1085.                 )
  1086.                 (default #_boards)
  1087.             )
  1088.         )
  1089.  
  1090.         (set #_olduserlevel @user-level)
  1091.         (user 1)
  1092.  
  1093.         (set #_monitor
  1094.             (askchoice
  1095.                 (prompt #AskMonitor)
  1096.                 (help #AskMonitorHelp)
  1097.                 (choices    #15kHzMonitor #31kHzMonitor #35kHzMonitor #38kHzMonitor
  1098.                             #48kHzMonitor #57kHzMonitor #64kHzMonitor)
  1099.                 (default 1)
  1100.             )
  1101.         )
  1102.  
  1103.         (user #_olduserlevel)
  1104.  
  1105.         (if
  1106.             (= #_boards 0)
  1107.             (abort #Err-No-Boards)
  1108.         )
  1109.  
  1110.         ;*********************
  1111.         ; get paths
  1112.  
  1113.         (if
  1114.             (askbool
  1115.                 (prompt #AskLibPath)
  1116.                 (help #AskLibPathHelp)
  1117.                 (choices #AskLibPathLibs #AskLibPathUser)
  1118.             )
  1119.             (set #_libpath #LibsDefaultPath)
  1120.             (set #_libpath
  1121.                 (askdir
  1122.                     (prompt #SelectLibDir)
  1123.                     (help #SelectLibDirHelp)
  1124.                     (default #LibsDefaultPath)
  1125.                 )
  1126.             )
  1127.         )
  1128.  
  1129.         (if
  1130.             (askbool
  1131.                 (prompt #AskMonitorPath)
  1132.                 (help #AskMonitorPathHelp)
  1133.                 (choices #AskMonitorPathMonitors #AskMonitorPathUser)
  1134.             )
  1135.             (set #_monitorpath #MonitorsDefaultPath)
  1136.             (set #_monitorpath
  1137.                 (askdir
  1138.                     (prompt #SelectMonitorDir)
  1139.                     (help #SelectMonitorDirHelp)
  1140.                     (default #MonitorsDefaultPath)
  1141.                 )
  1142.             )
  1143.         )
  1144.  
  1145.         (if
  1146.             (askbool
  1147.                 (prompt #AskPrefsPath)
  1148.                 (help #AskPrefsPathHelp)
  1149.                 (choices #AskPrefsPathPrefs #AskPrefsPathUser)
  1150.             )
  1151.             (set #_prefspath #PrefsDefaultPath)
  1152.             (set #_prefspath
  1153.                 (askdir
  1154.                     (prompt #SelectPrefsDir)
  1155.                     (help #SelectPrefsDirHelp)
  1156.                     (default #PrefsDefaultPath)
  1157.                 )
  1158.             )
  1159.         )
  1160.  
  1161.         (if
  1162.             (askbool
  1163.                 (prompt #AskSettingsPath)
  1164.                 (help #AskSettingsPathHelp)
  1165.                 (choices #AskSettingsPathDevs #AskSettingsPathUser)
  1166.             )
  1167.             (set #_settingsname #SettingsDefaultName)
  1168.             (set #_settingsname
  1169.                 (askdir
  1170.                     (prompt #SelectSettingsDir)
  1171.                     (help #SelectSettingsDirHelp)
  1172.                     (default #SettingsDefaultName)
  1173.                 )
  1174.             )
  1175.         )
  1176.  
  1177.         (set #_copysettings 1)
  1178.         (if
  1179.             (exists #_settingsname (noreq))
  1180.             (if
  1181.                 (askbool
  1182.                     (prompt #AskSettingsCopy)
  1183.                     (help #AskSettingsCopyHelp)
  1184.                     (choices #Keep #Overwrite)
  1185.                 )
  1186.                 (set #_copysettings 0)
  1187.                 (set #_copysettings 2)
  1188.             )
  1189.         )
  1190.  
  1191.         (set #_mainpathroot
  1192.             (askdir
  1193.                 (prompt #SelectMainDir)
  1194.                 (help #SelectMainDirHelp)
  1195.                 (default #MainDefaultPath)
  1196.                 (newpath)
  1197.                 (disk)
  1198.             )
  1199.         )
  1200.         (set #_mainpath (tackon #_mainpathroot #MainPath))
  1201.         
  1202.         (set #_copydrivers
  1203.             (askbool
  1204.                 (prompt #CopyDrivers)
  1205.                 (help #CopyDriversHelp)
  1206.             )
  1207.         )
  1208.  
  1209.         (set #_libsPicasso96path (tackon #_libpath "Picasso96"))
  1210.  
  1211.         ;*********************
  1212.         ; finally install...
  1213.  
  1214.         (working #Msg-Installing)
  1215.  
  1216.         ; set application path to get install_log_file there
  1217.         (set @default-dest #_mainpath)
  1218.  
  1219.         ; make applications directory (holds update/uninstall scripts, too)
  1220.         (if
  1221.             (= 0 (exists #_mainpath))
  1222.             (makedir #_mainpath
  1223.                 (prompt #Picasso96HomeDir)
  1224.                 (help #Picasso96HomeDirHelp)
  1225.                 (confirm)
  1226.             )
  1227.         )
  1228.  
  1229.         ; copy applications
  1230.  
  1231.         (copyfiles
  1232.             (prompt #CopyApps)
  1233.             (help #CopyAppsHelp)
  1234.             (source "Picasso96")
  1235.             (dest #_mainpath)
  1236.             (infos)
  1237.             (all)
  1238.         )
  1239.  
  1240.  
  1241.         ; makedir libs/Picasso96
  1242.         (if
  1243.             (= 0 (exists #_libsPicasso96path))
  1244.             (makedir #_libsPicasso96path
  1245.                 (prompt #Picasso96Dir)
  1246.                 (help #Picasso96DirHelp)
  1247.                 (confirm)
  1248.             )
  1249.         )
  1250.  
  1251.         ; copy Picasso96API.library
  1252.         (copylib
  1253.             (prompt #CopyPicasso96API)
  1254.             (help #CopyPicasso96APIHelp)
  1255.             (source "libs/Picasso96API.library")
  1256.             (dest #_libpath)
  1257.             (confirm)
  1258.         )
  1259.  
  1260.         ; copy rtg.library
  1261.         (copylib
  1262.             (prompt #CopyRtg)
  1263.             (help #CopyRtgHelp)
  1264.             (source "libs/Picasso96/rtg.library")
  1265.             (dest #_libsPicasso96path)
  1266.             (confirm)
  1267.         )
  1268.  
  1269.         ; copy fastlayers.library
  1270.         (copylib
  1271.             (prompt #CopyFL)
  1272.             (help #CopyFLHelp)
  1273.             (source "libs/Picasso96/fastlayers.library")
  1274.             (dest #_libsPicasso96path)
  1275.             (confirm)
  1276.         )
  1277.  
  1278.         ; copy picture.datatype
  1279.         (if
  1280.             (NOT (exists "SYS:Classes/Datatypes/picture.datatype.old"))
  1281.             (copyfiles
  1282.                 (prompt #CopyPDT)
  1283.                 (help #CopyPDTHelp)
  1284.                 (source "SYS:Classes/Datatypes/picture.datatype")
  1285.                 (dest "SYS:Classes/Datatypes")
  1286.                 (newname "picture.datatype.old")
  1287.             )
  1288.         )
  1289.         (copylib
  1290.             (prompt #CopyPDT)
  1291.             (help #CopyPDTHelp)
  1292.             (source "Classes/Datatypes/picture.datatype")
  1293.             (dest "SYS:Classes/Datatypes")
  1294.             (confirm)
  1295.         )
  1296.  
  1297.         ; install chips
  1298.  
  1299.         (if
  1300.             (BITAND #_boards 1)
  1301.             (
  1302.                 (set #_chipname "S3Trio64")
  1303.                 (P_InstallChip)
  1304.             )
  1305.         )
  1306.  
  1307.         (if
  1308.             (BITAND #_boards (+ 2 16))
  1309.             (
  1310.                 (set #_chipname "TsengET4000")
  1311.                 (P_InstallChip)
  1312.             )
  1313.         )
  1314.  
  1315.         (if
  1316.             (BITAND #_boards (+ 8 16))
  1317.             (
  1318.                 (set #_chipname "TsengET4000W32")
  1319.                 (P_InstallChip)
  1320.             )
  1321.         )
  1322.  
  1323.         (if
  1324.             (BITAND #_boards (+ 4 32 128 512))
  1325.             (
  1326.                 (set #_chipname "CirrusGD542X")
  1327.                 (P_InstallChip)
  1328.             )
  1329.         )
  1330.  
  1331.         (if
  1332.             (BITAND #_boards 64)
  1333.             (
  1334.                 (set #_chipname "CirrusGD5446")
  1335.                 (P_InstallChip)
  1336.             )
  1337.         )
  1338.  
  1339.         (if
  1340.             (BITAND #_boards 256)
  1341.             (
  1342.                 (set #_chipname "CirrusGD5434")
  1343.                 (P_InstallChip)
  1344.             )
  1345.         )
  1346.  
  1347.         (if
  1348.             (BITAND #_boards 1)
  1349.             (
  1350.                 (set #_boardname "CyberVision")
  1351.                 (P_InstallCard)
  1352.             )
  1353.         )
  1354.  
  1355.         (if
  1356.             (BITAND #_boards 2)
  1357.             (
  1358.                 (set #_boardname "Domino")
  1359.                 (P_InstallCard)
  1360.             )
  1361.         )
  1362.  
  1363.         (if
  1364.             (BITAND #_boards 4)
  1365.             (
  1366.                 (set #_boardname "Graffity")
  1367.                 (P_InstallCard)
  1368.             )
  1369.         )
  1370.  
  1371.         (if
  1372.             (BITAND #_boards 8)
  1373.             (
  1374.                 (set #_boardname "Merlin")
  1375.                 (P_InstallCard)
  1376.             )
  1377.         )
  1378.  
  1379.         (if
  1380.             (BITAND #_boards 16)
  1381.             (
  1382.                 (set #_boardname "oMniBus")
  1383.                 (P_InstallCard)
  1384.             )
  1385.         )
  1386.  
  1387.         (if
  1388.             (BITAND #_boards 32)
  1389.             (
  1390.                 (set #_boardname "PicassoII")
  1391.                 (P_InstallCard)
  1392.             )
  1393.         )
  1394.  
  1395.         (if
  1396.             (BITAND #_boards 64)
  1397.             (
  1398.                 (set #_boardname "PicassoIV")
  1399.                 (P_InstallCard)
  1400.             )
  1401.         )
  1402.  
  1403.         (if
  1404.             (BITAND #_boards 128)
  1405.             (
  1406.                 (set #_boardname "Piccolo")
  1407.                 (P_InstallCard)
  1408.             )
  1409.         )
  1410.  
  1411.         (if
  1412.             (BITAND #_boards 256)
  1413.             (
  1414.                 (set #_boardname "PiccoloSD64")
  1415.                 (P_InstallCard)
  1416.             )
  1417.         )
  1418.  
  1419.         (if
  1420.             (BITAND #_boards 512)
  1421.             (
  1422.                 (set #_boardname "Spectrum")
  1423.                 (P_InstallCard)
  1424.             )
  1425.         )
  1426.  
  1427.         ; copy Picasso96Mode
  1428.         (copylib
  1429.             (prompt #CopyPicasso96Mode)
  1430.             (help #CopyPicasso96ModeHelp)
  1431.             (source "Prefs/Picasso96Mode")
  1432.             (dest #_prefspath)
  1433.             (confirm)
  1434.             (infos)
  1435.         )
  1436.         (tooltype
  1437.             (prompt #Picasso96ModeIconType)
  1438.             (help #Picasso96ModeIconTypeHelp)
  1439.             (dest (tackon #_prefspath "Picasso96Mode"))
  1440.             (settooltype "SettingsFile" #_settingsname)
  1441.             (noposition)
  1442.             (confirm)
  1443.         )
  1444.  
  1445.         ; backup old settings file
  1446.         (if
  1447.             (= #_copysettings 2)
  1448.             (copyfiles
  1449.                 (prompt #CopySettings)
  1450.                 (help #CopySettingsHelp)
  1451.                 (source #_settingsname)
  1452.                 (dest (pathonly #_settingsname))
  1453.                 (confirm)
  1454.                 (newname (cat (fileonly #_settingsname) ".bak"))
  1455.             )
  1456.         )
  1457.         ; copy settings file
  1458.         (set #_settingssource
  1459.             (select #_monitor
  1460.                 "devs/Picasso96Settings.15"
  1461.                 "devs/Picasso96Settings.31"
  1462.                 "devs/Picasso96Settings.35.5"
  1463.                 "devs/Picasso96Settings.38"
  1464.                 "devs/Picasso96Settings.48"
  1465.                 "devs/Picasso96Settings.57"
  1466.                 "devs/Picasso96Settings.64"
  1467.             )
  1468.         )
  1469.         (if
  1470.             (NOT (= #_copysettings 0))
  1471.             (copyfiles
  1472.                 (prompt #CopySettings)
  1473.                 (help #CopySettingsHelp)
  1474.                 (source #_settingssource)
  1475.                 (dest (pathonly #_settingsname))
  1476.                 (confirm)
  1477.                 (newname (fileonly #_settingsname))
  1478.             )
  1479.         )
  1480.  
  1481.         ; copy emulation library
  1482.         (copylib
  1483.             (prompt #CopyEmuLib)
  1484.             (help #CopyEmuLibHelp)
  1485.             (source "libs/Picasso96/emulation.library")
  1486.             (dest #_libsPicasso96path)
  1487.             (confirm)
  1488.         )
  1489.         
  1490.         ; modify user-startup
  1491.         (startup @app-name
  1492.             (prompt #AddUserStartup)
  1493.             (help #AddUserStartupHelp)
  1494.             (command (cat "Assign " #MainPath ": \"" #_mainpath "\""))
  1495.         )
  1496.  
  1497.         ; copy drivers to harddisk
  1498.         (if
  1499.             (= #_copydrivers 1)
  1500.             (
  1501.                 (copyfiles
  1502.                     (source "drivers")
  1503.                     (dest #_mainpath)
  1504.                     (all)
  1505.                 )
  1506.                 (if
  1507.                     (= 1 (exists (tackon #_mainpath "ShapeShifter")))
  1508.                     (tooltype
  1509.                         (prompt #DriversToolType)
  1510.                         (help #DriversToolTypeHelp)
  1511.                         (dest (tackon #_mainpath "ShapeShifter"))
  1512.                         (noposition)
  1513.                         (confirm)
  1514.                     )
  1515.                 )
  1516.                 (if
  1517.                     (= 1 (exists (tackon #_mainpath "ADPro")))
  1518.                     (tooltype
  1519.                         (prompt #DriversToolType)
  1520.                         (help #DriversToolTypeHelp)
  1521.                         (dest (tackon #_mainpath "ADPro"))
  1522.                         (noposition)
  1523.                         (confirm)
  1524.                     )
  1525.                 )
  1526.                 (if
  1527.                     (= 1 (exists (tackon #_mainpath "Photogenics")))
  1528.                     (tooltype
  1529.                         (prompt #DriversToolType)
  1530.                         (help #DriversToolTypeHelp)
  1531.                         (dest (tackon #_mainpath "Photogenics"))
  1532.                         (noposition)
  1533.                         (confirm)
  1534.                     )
  1535.                 )
  1536.                 (if
  1537.                     (= 1 (exists (tackon #_mainpath "XiPaint")))
  1538.                     (tooltype
  1539.                         (prompt #DriversToolType)
  1540.                         (help #DriversToolTypeHelp)
  1541.                         (dest (tackon #_mainpath "XiPaint"))
  1542.                         (noposition)
  1543.                         (confirm)
  1544.                     )
  1545.                 )
  1546.                 (message
  1547.                     #MsgInstallFromHD
  1548.                     (all)
  1549.                 )
  1550.             )
  1551.         )
  1552.     )
  1553. )
  1554.